home *** CD-ROM | disk | FTP | other *** search
/ Urabon Golden Age Girl 2 / Urabon Golden Age Girl 2.iso / mac / 裏ガール２data / FAVORITE.DIR / 00006_CLEAR.ls < prev    next >
Encoding:
Text File  |  1995-01-18  |  651 b   |  23 lines
  1. on mouseDown
  2.   global ngyou, mylist, zmylist
  3.   repeat while the stillDown
  4.     if rollOver(clickOn()) then
  5.       set the castNum of sprite clickOn() to the number of cast "dnCLEAR"
  6.     else
  7.       set the castNum of sprite clickOn() to the number of cast "CLEAR"
  8.     end if
  9.     updateStage()
  10.   end repeat
  11.   set ngyou to 0
  12.   set mylist to 0
  13.   set zmylist to 0
  14.   put EMPTY into field "Selected"
  15.   put EMPTY into field "zSelected"
  16.   put EMPTY into field "test"
  17.   set the visible of sprite 13 to 0
  18.   set the visible of sprite 11 to 0
  19.   set the visible of sprite 6 to 0
  20.   set the castNum of sprite clickOn() to the number of cast "CLEAR"
  21.   updateStage()
  22. end
  23.